home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1993 July / InfoMagic USENET CD-ROM July 1993.ISO / sources / unix / volume17 / mgr / part28 < prev    next >
Encoding:
Internet Message Format  |  1989-01-19  |  52.1 KB
  1. Subject:  v17i029:  MGR, Bellcore window manager, Part28/61
  2. Newsgroups: comp.sources.unix
  3. Approved: rsalz@uunet.UU.NET
  4.  
  5. Submitted-by: Stephen A. Uhler <sau@bellcore.com>
  6. Posting-number: Volume 17, Issue 29
  7. Archive-name: mgr/part28
  8.  
  9.  
  10.  
  11.  
  12. #! /bin/sh
  13. # This is a shell archive.  Remove anything before this line, then unpack
  14. # it by saving it into a file and typing "sh file".  To overwrite existing
  15. # files, type "sh file -c".  You can also feed this as standard input via
  16. # unshar, or by typing "sh <file", e.g..  If this archive is complete, you
  17. # will see the following message at the end:
  18. #        "End of archive 28 (of 61)."
  19. # Contents:  demo/icon/snap.c font-16/Ucmr15x25r misc/hp_raster.c
  20. #   src/defs.h src/new_window.c src/update.c
  21. # Wrapped by rsalz@papaya.bbn.com on Thu Nov 17 21:05:33 1988
  22. PATH=/bin:/usr/bin:/usr/ucb ; export PATH
  23. if test -f 'demo/icon/snap.c' -a "${1}" != "-c" ; then 
  24.   echo shar: Will not clobber existing file \"'demo/icon/snap.c'\"
  25. else
  26. echo shar: Extracting \"'demo/icon/snap.c'\" \(8035 characters\)
  27. sed "s/^X//" >'demo/icon/snap.c' <<'END_OF_FILE'
  28. X/*                        Copyright (c) 1988 Bellcore
  29. X *                            All Rights Reserved
  30. X *       Permission is granted to copy or use this program, EXCEPT that it
  31. X *       may not be sold for profit, the copyright notice must be reproduced
  32. X *       on copies, and credit should be given to Bellcore where it is due.
  33. X *       BELLCORE MAKES NO WARRANTY AND ACCEPTS NO LIABILITY FOR THIS PROGRAM.
  34. X */
  35. X/*    $Header: snap.c,v 4.5 88/08/23 10:47:42 bianchi Exp $
  36. X    $Source: /tmp/mgrsrc/demo/icon/RCS/snap.c,v $
  37. X*/
  38. Xstatic char    RCSid_[] = "$Source: /tmp/mgrsrc/demo/icon/RCS/snap.c,v $$Revision: 4.5 $";
  39. X
  40. X/* snap a piece of the screen -- only works locally */
  41. X
  42. X#include <signal.h>
  43. X#include <sys/file.h>
  44. X#include "term.h"
  45. X#include "bitmap.h"
  46. X#include "dump.h"
  47. X
  48. X#define ICON   "easel"
  49. X#define SCREEN   "/dev/bwtwo0"
  50. X#define min(x,y)      ((x)>(y)?(y):(x))
  51. X#define dprintf   if(debug)fprintf
  52. X#define PRINTER   "lp"         /* default printer name */
  53. X#define CANCEL      10            /* time after which REVIEW is canceled */
  54. X
  55. Xstatic char buff[100];         /* mgr input buffer */
  56. Xstatic char cmd[100];            /* lpr command buffer */
  57. Xstatic char *name;               /* file name */
  58. Xstatic char my_host[32];            /* my-host */
  59. Xstatic char mgr_host[32];            /* mgr host */
  60. X
  61. Xstatic int debug=0;
  62. Xstatic int review=0;            /* review more set */
  63. Xstatic int func = BIT_SRC;
  64. X
  65. X#define MENU_COUNT      (sizeof(menu)/sizeof(struct menu_entry))
  66. X
  67. Xstatic struct menu_entry menu[] = {
  68. X   "print","Print\r",
  69. X   "file","File\r",
  70. X   "review =>","View\r",
  71. X   "quit","Quit\r",
  72. X};
  73. Xstatic struct menu_entry rop[] = {
  74. X   "set","-Set\r",
  75. X   "paint","-Paint\r",
  76. X   "xor","-Xor\r",
  77. X   "mask","-Mask\r",
  78. X};
  79. X
  80. Xmain(argc,argv)
  81. Xint argc;
  82. Xchar **argv;
  83. X   {
  84. X   BITMAP *screen , *tmp = (BITMAP *) 0;
  85. X   char *printer, *getenv();
  86. X
  87. X   FILE *fp;      /* file to write */
  88. X   int w,h;
  89. X   int wide,high;   /* picture size */
  90. X   int x,y;      /* window pos */
  91. X   int x1,y1;   /* sweep coords */
  92. X   int xmax, ymax;      /* display size */
  93. X   int n;
  94. X   int snapping = 0;      /* ready to snap */
  95. X   int format = OLD_BHDR;            /* new format */
  96. X   int cancel(),clean();
  97. X
  98. X   FILE *pf;
  99. X   
  100. X   ckmgrterm();
  101. X
  102. X   debug = (int) getenv("DEBUG");
  103. X
  104. X   if (argc > 1 && strcmp("-n",argv[1])==0) {
  105. X      format=NEW_BHDR;
  106. X      argc--;
  107. X      argv++;
  108. X        }
  109. X
  110. X   if (argc != 2) {
  111. X      fprintf(stderr,"Usage: snap [-n] <file>\n");
  112. X      exit(1);
  113. X      }
  114. X
  115. X   name = argv[1];
  116. X
  117. X   if ((screen = bit_open(SCREEN)) == (BITMAP *) 0) {
  118. X      fprintf(stderr,"%s: Can't find %s\n",*argv,SCREEN);
  119. X      exit(1);
  120. X      }
  121. X
  122. X   if ((fp = fopen(name, "w")) == NULL) {
  123. X      perror("fopen");
  124. X      fprintf(stderr,"%s: Can't fopen %s\n",*argv,name);
  125. X      exit(1);
  126. X      }
  127. X
  128. X   if ((printer = getenv("PRINTER")) == (char *) 0)
  129. X      printer = PRINTER;
  130. X   sprintf(cmd,"lpr -P%s -J%s -v",printer,name);
  131. X
  132. X   /* setup mgr library */
  133. X
  134. X   m_setup(0);
  135. X
  136. X   get_param(mgr_host,&xmax,&ymax,0);
  137. X   gethostname(my_host,sizeof(my_host));
  138. X
  139. X   if (strcmp(my_host,mgr_host) != 0) {
  140. X      fprintf(stderr,"%s only works on host: %s\n",
  141. X               argv[0],mgr_host);
  142. X      exit(1);
  143. X       }
  144. X
  145. X   m_push(P_FONT|P_FLAGS|P_MENU|P_POSITION);
  146. X   m_ttyset();
  147. X   signal(SIGALRM,cancel);
  148. X   signal(SIGTERM,clean);
  149. X   signal(SIGINT,clean);
  150. X   signal(SIGHUP,clean);
  151. X
  152. X   m_setmode(M_NOWRAP);
  153. X   m_setmode(M_ABS);
  154. X   m_func(B_COPY);
  155. X   m_bitfromfile(1,ICON);
  156. X   m_flush();
  157. X   m_gets(buff);
  158. X   n = sscanf(buff,"%d %d",&w,&h);
  159. X   if (n < 2) {
  160. X      fprintf(stderr,"%s: Can't find %s\n",*argv,ICON);
  161. X      clean(1);
  162. X      }
  163. X   setup(1,w,h);
  164. X   m_setevent(BUTTON_1,"S%R\r");   /* get coords */
  165. X   m_setevent(REDRAW,"Redraw\r");    /* get coords */
  166. X   m_setevent(RESHAPE,"Reshape\r");    /* get coords */
  167. X   menu_load(1,MENU_COUNT,menu);
  168. X   menu_load(2,MENU_COUNT,rop);
  169. X   m_selectmenu(1);
  170. X   m_linkmenu(1,2,2,6);
  171. X   m_clearmode(M_ACTIVATE);
  172. X
  173. X   m_flush();
  174. X   while(m_gets(buff)) {
  175. X      dprintf(stderr,"got %s\n",buff);
  176. X      switch (*buff) {
  177. X      case 'R':            /* redraw */
  178. X         setup(1,w,h);
  179. X         m_clearmode(M_ACTIVATE);
  180. X         break;
  181. X      case 'S':            /* set up to snap a picture */
  182. X         n = sscanf(buff+1,"%d %d %d %d",&x,&y,&x1,&y1);
  183. X         if (n < 4)
  184. X            break;;
  185. X         m_setmode(M_WOB);
  186. X         wide = abs(x1-x);
  187. X         high = abs(y1-y);
  188. X         x = min(x,x1);
  189. X         y = min(y,y1);
  190. X         m_push(P_MOUSE);
  191. X         if (x > 16 || y > 16)
  192. X            m_movemouse(0,0);         /* get mouse out of the picture */
  193. X         else 
  194. X            m_movemouse(xmax-17,ymax-17);
  195. X         if (review) {
  196. X            alarm(0);
  197. X            m_sendme("B review\r");                     /* synchronize review */
  198. X            }
  199. X         else {
  200. X            m_sendme("E snap\r");                     /* synchronize snap */
  201. X            snapping = 1;
  202. X            if (tmp) {
  203. X               bit_destroy(tmp);
  204. X               tmp = NULL;
  205. X               }
  206. X            tmp = bit_alloc(wide,high,BIT_NULL,1);
  207. X            }
  208. X         break;
  209. X      case 'B':               /* review the picture */
  210. X         if (review && tmp && !snapping) {
  211. X            review = 0;
  212. X            if (wide < 20 && high < 20) {
  213. X               wide = BIT_WIDE(tmp);
  214. X               high = BIT_HIGH(tmp);
  215. X               }
  216. X            bit_blit(screen,x,y,wide,high,func,tmp,0,0);
  217. X            dprintf(stderr,"review %d,%d by %d,%d\n",x,y,wide,high);
  218. X            m_pop();
  219. X            }
  220. X         m_clearmode(M_WOB);
  221. X         m_clearmode(M_ACTIVATE);
  222. X         break;
  223. X      case 'E':               /* get the picture */
  224. X         if (snapping && x!=16 && y!=16) {
  225. X            bit_blit(tmp,0,0,wide,high,BIT_SRC,screen,x,y);
  226. X            m_pop();
  227. X            m_clearmode(M_WOB);
  228. X            m_clearmode(M_ACTIVATE);
  229. X            }
  230. X         snapping = 0;
  231. X         break;
  232. X      case 'F':                  /* file it */
  233. X         if (tmp && !snapping) {
  234. X            fseek(fp,0L,0);
  235. X            ftruncate(fileno(fp),0);
  236. X        if (!bitmapwrite(fp,tmp,format) ) {
  237. X               m_push(P_ALL);
  238. X               m_font(0);
  239. X               m_size(27,3);
  240. X               m_clear();
  241. X               m_printstr("unable to write file\n");
  242. X               m_printstr(name);
  243. X               m_flush();
  244. X               sleep(3);
  245. X               m_pop();
  246. X               m_clearmode(M_ACTIVATE);
  247. X               m_flush();
  248. X               }
  249. X            dprintf(stderr,"filing\n");
  250. X            }
  251. X     fflush(fp);
  252. X         m_clearmode(M_ACTIVATE);
  253. X         break;
  254. X      case 'Q':                  /* quit */
  255. X         clean(0);
  256. X         break;
  257. X      case 'P':                  /* print */
  258. X         if (tmp && !snapping && (pf = popen(cmd,"w"))) {
  259. X                bitmapwrite(pf,tmp,format);
  260. X            dprintf(stderr,"printing [%s]\n",cmd);
  261. X            pclose(pf);
  262. X            }
  263. X         m_clearmode(M_ACTIVATE);
  264. X         break;
  265. X      case '-':                  /* set review mode*/
  266. X         if (review) 
  267. X            switch (*(buff+1)) {
  268. X               case 'S':         /* set */
  269. X                  func = BIT_SRC;
  270. X                  break;
  271. X               case 'P':         /* paint */
  272. X                  func = BIT_SRC | BIT_DST;
  273. X                  break;
  274. X               case 'X':         /* XOR */
  275. X                  func = BIT_SRC ^ BIT_DST;
  276. X                  break;
  277. X               case 'M':         /* MASK */
  278. X                  func = BIT_SRC & BIT_DST;
  279. X                  break;
  280. X               }
  281. X      case 'V':                  /* review */
  282. X         if (tmp && !snapping) {
  283. X            alarm(CANCEL);
  284. X            review++;
  285. X            m_setmode(M_WOB);
  286. X            }
  287. X         break;
  288. X         }
  289. X      m_flush();
  290. X      }
  291. X   
  292. X   clean(0);
  293. X   }
  294. X
  295. Xint clean(n)
  296. Xint n;
  297. X   {
  298. X   m_ttyreset();
  299. X   m_popall();
  300. X   exit(n);
  301. X   }
  302. X
  303. Xsetup(where,w,h)
  304. Xint where;      /* bitmap # */
  305. Xint w,h;         /* window size */
  306. X   {
  307. X   int wx,wy;    /* window position */
  308. X
  309. X   get_size(&wx,&wy,0,0);
  310. X   m_shapewindow(wx,wy,w+10,h+10);
  311. X   m_clear();
  312. X   m_bitcopyto(0,0,w,h,0,0,0,where);
  313. X   m_movecursor(w+20,h/2);
  314. X   }
  315. X
  316. Xint
  317. Xcancel()
  318. X   {
  319. X   review = 0;
  320. X   m_putchar('\007');
  321. X   m_clearmode(M_WOB);
  322. X   m_flush();
  323. X   }
  324. END_OF_FILE
  325. # end of 'demo/icon/snap.c'
  326. fi
  327. if test -f 'font-16/Ucmr15x25r' -a "${1}" != "-c" ; then 
  328.   echo shar: Will not clobber existing file \"'font-16/Ucmr15x25r'\"
  329. else
  330. echo shar: Extracting \"'font-16/Ucmr15x25r'\" \(8306 characters\)
  331. sed "s/^X//" >'font-16/Ucmr15x25r' <<'END_OF_FILE'
  332. Xbegin 644 cmr15x25r.fnt
  333. XM%@\9!8  __@&    !P                  &         /           P 
  334. XMW_^                            & &, ,&#,  , \ <  '!P        
  335. XM       <#\ < '\ _@ P'_X'\'_\#X _@             ?@   $ _X _@_\
  336. XM'_\__@_@P!@_  !F ,P & ,X!@_@_\ _@_\ _@?_F ,P!F ,P!B $__@#\< 
  337. XM#\  0    $                                                  
  338. XM                 < P#@     \__@&    'X                  /  P
  339. XM      ?P          P W_\                            & &, ,&#,
  340. XM!P,#N ^  . X               8'^ \ ?_#_X!P'_X?_'_\/^#_X       
  341. XM      _P   . __#_X__'_\__C_XP!@_  !F <P ' <X!C_X__#_X__#_X?_
  342. XMF ,P!F ,P!B $__@#\, #\  X    ,                     .       P
  343. XM                                     P P P    !^__@&    /\  
  344. XM        >       ?@ P      88          8!@ ,             $   
  345. XM           & &, ,&'^#X8#' ^  , 8               X.'1L 8## 8!@
  346. XM&  8#  <,&# 8            !PX   . P## 8P#&  P # 8P!@,  !F XP 
  347. XM'@\\!C 8P## 8P## 8 P& ,8#& ,8## , #@# .  , !\    8         !
  348. XM@   /   8  .  <#   P                   P                !@ P
  349. XM 8    #F__@&    <<          _   $#\ ?@ P       ,     !P# 88!
  350. XM@ ,             $              & &, 8,/_&,8&# >  8 ,        
  351. XM       P<#S, P!F ,# &  P!@ 88#& ,            #@<   ? P!F ,P!
  352. XMF  P & ,P!@,  !F!PP 'Q\\!F ,P!F ,P!F , P& ,8#& ,8## , # # & 
  353. XM , #N    X   8     !@   ?   8  .  <#   P                   P
  354. XM                !@ P 8    #F__@&    X,          C@& ,/_ VP P
  355. XM       ,     '\# 88!@ ,             .  !C          & &, 8,?/
  356. XMF,P&# .  8 ,              !P8#P, P!F ,# &  P!@ 88#& ,       
  357. XM     # ,   ; P!F ,P!F  P & ,P!@,  !F#@P &[LV!F ,P!F ,P!F , P
  358. XM& ,8#& ,,&!@8 & # '  , ''    \   8     !@   P   8     <#   P
  359. XM                   P                 P P P    # __@&    P,  
  360. XM        A@' <<'!VX P /     ,     ..# 8,#  ,             .  '
  361. XMCP         & &,#_^;-F,P'& ,  8 ,  P           !@8#@,  !@ ,& 
  362. XM&  P   P8#& ,              ,   ; P!F  P!F  P &  P!@,  !F' P 
  363. XM&;,V!F ,P!F ,P!F   P& ,,&& ,,&!@8 . # #  , .#@   ^   8     !
  364. XM@   P   8      #   P                   P                 P P
  365. XM P    # __@&   Q@8           P#@X8!!F8 P _P    ,     <'# 8,#
  366. XM  ,             ?  > \         & &,#_^;,#Y@#N 8  8 , !X &   
  367. XM      #@8'@,  !@ 8& &  P   P,&& ,              ,#\ Q@P!F  P!
  368. XMF  P &  P!@,  !F. P &.,S!F ,P!F ,P!F   P& ,,&& ,&, PP , # #@
  369. XM , <!P   ^ ?P8     !@   P   8      #   P#       8          P
  370. XM                 P P P    # __@& 'AA@8 P    ^!^& P!QP< #F<__
  371. XMQF8    ,!_W_ 8## 8/_  ,!X         !@[@!X /   $ "   & &, P8?,
  372. XM!Q@!X 0  X . PPP&         # 8/@,  #  8,,&  P  !@/># <#@    !
  373. XM@  8   </_ Q@P!F  P!F  P &  P!@,  !F< P &$,S!F ,P!F ,P!F   P
  374. XM& ,,&& ,&, PP 8 # !@ , X X   < _X8\ ?P#Q@?@ P >,8\ &   #!P P
  375. XM#<X9^ ?@8\ >,8X ?P'_# ,8!C ,0 C ,?_@ P P P    ' __@& /QC P!X
  376. XM   #P'_^ 8 [@/ #&,__S&,    ,'_W_P8## 8'^  ,'^ 0@#  !@ #!QP'@
  377. XM #P?_F &   &    P8/, # 'P    X . XQP&         ' 8=@,  &  P,,
  378. XM&  P  !@#X#Q\'P <  '@  >   X8#@Q@P#&  P!F  P &  P!@,  !FX P 
  379. XM&$,QAF ,P#& ,P##   P& ,&,& ,#8 9@ X # !P ,        !@,;_!_X/]
  380. XMA_X'_!_L;_ &  ,##@ P#]\;_!_X;_!_L;^ _X'_# ,8!C ,8!C ,?_@!@ P
  381. XM 8    & __@& 8;#!@#,   ' &9X 8 ? #P"&$ P"&$.' ?,.   X8## 8&&
  382. XM /\,# PP&   P &#@X>   \?_F &   &    P8'\ # /P    X . \SP&   
  383. XM      & 8Y@,  , /@8,'_@QP # !P _L'P ^  >   '@ !PP!Q@P__&  P!
  384. XMG_P_^&  __@,  !GP P & ,QAF ,__& ,__#_P P& ,&,& ,#X ?@ P #  P
  385. XM ,        !@,>#!@,,'A@8'_!@\?# &  ,#'  P#&,>#A@8>#!@\?'!@, P
  386. XM# ,<#C ,<#C , # #@ P <    & __B&$0/##@#,'_^& $8P 8 . #\ &  P
  387. XM&&&?/@_\<   <8## 8&& /\>'A@8,   8?_G@\>   \  # ,   &   !@P#^
  388. XM & <X    X . /_ &         . 9Q@,  8 /@8,'_XW\ # '\ .,'P ^ !X
  389. XM#_\!X #@QXQ@P__&  P!G_P_^&  __@,  !G@ P & ,PQF ,_\& ,_\ _X P
  390. XM& ,&,& ,#X / !@ #  X ,          ,<!C ,8#C , P# <<!@&  ,#.  P
  391. XM#&,<!C ,<!C <<#!@, P# ,,## ,.'# , & #@ P < ' 0& __C&,P.#!X&&
  392. XM'_^,  8P \ . /^ &  P'_^QXQ@<X   .8## 8#,  ,3,C ,8   ,?_C@X'@
  393. XM #P  # ,   &   !@P#/ & X<    X . '^ &         , ;A@,  P  PP,
  394. XM  8^/ & >/  ,#@ ^ '@#_\ > ' S^Q@PP#&  P!F  P &!\P!@,  !GP P 
  395. XM& ,PQF ,P & ,P&  8 P& ,#8&$,#8 & #@ #  8 ,          \8!C  8!
  396. XMC , P# ,8!@&  ,#<  P#&,8!C ,8!C ,8 !@  P# ,.'# ,'.# , , !@ P
  397. XM 8 /@0& __CF<P&' <&&  &,  PP!\ . <' &  P'_^PPS ,P   &8## 8#,
  398. XM  ,QXW_^__W_^ 8!QP!X / ?_A@8   &   !@P#/@, X<P   X . #\'_^  
  399. XM#_\   < ?!@, !@  8P,  ,X# & 8#  ,   < >     '@. S&S_XP!F  P!
  400. XMF  P &!\P!@,  !FX P & ,P9F ,P & ,P&  , P& ,#8&$,&, & #  #  <
  401. XM ,         /\8!C  8!C_\ P# ,8!@&  ,#\  P#&,8!C ,8!C ,8 !_P P
  402. XM# ,&&# ,#\# , 8  P P P ?PP& __AF8P&' .,#  &/X PP#L / P# &  P
  403. XM&&&PPS ,P   &8## 8#,  ,PPW_^__W_^ P [@ > \ ?_A@8   &   '_\#-
  404. XM@,XX.P   8 , '^'_^  #_\   8 >!@, #   8__@ ,P!@, P!@ ,     > 
  405. XM    '@, S&S_XP!F  P!F  P & ,P!@,  !F< P & ,P9F ,P & ,P#  , P
  406. XM& ,#8&.,&, & &  #  , ,        !_,8!C  8!C_\ P# ,8!@&  ,#^  P
  407. XM#&,8!C ,8!C ,8  _X P# ,'.# ,!X# , P  P P P 9Y@. __AVXP&' .,#
  408. XM  &,  PP'& + P# &  P"&$PPS ,P   &8## 8!X  ,QXS ,8   ,?_@?  '
  409. XMCP    PP       '_\;-@9\X.P   8 , /_ &         X <!@, &   ,__
  410. XM@ ,P!@, P!@ ,     '@#_\ > , S_C 8P!F  P!F  P & ,P!@,  !F. P 
  411. XM& ,P-F ,P & ,P#  , P& ,!P&?,,& & .  #  . ,        #@,8!C  8!
  412. XMC   P# ,8!@&  ,#G  P#&,8!C ,8!C ,8   , P# ,#,#&,#\# ,!@  P P
  413. XM P P_@, __@VPP.' .8!@ &,  P8.& + P# &   #&,QXS ,X   .8## 8!X
  414. XM  ,3,A@8,   8?_@.  !C     PP       #!@?/@;&X'@   8 , \SP&   
  415. XM   #@ P \!@, , & , ,& ,P!@8 P!F ,#@   !X#_\!X   Q_# 8P!F ,P!
  416. XMF  P & ,P!@, P!F' P & ,P-F ,P &!LP#& , P& ,!P&[L,& & ,  #  &
  417. XM ,        # ,8!C  8!C   P# ,8!@&  ,##@ P#&,8!C ,8!C ,8   , P
  418. XM# ,#\#/,'.# ,#   P P P @? , __@?@0/' .8!@  & !@8<# + X' &   
  419. XM!F8?/C 8<   <8##@X!X  ,>'@PP&   P&  .      ?_@9@       #!@/_
  420. XM S&<'@   8 , XQP& #@   'P!P \#@, 8 & , ,& ,P!@8 P!F ,'P <  >
  421. XM   '@   X ' <P!F ,P!F  P & ,P!@, P!F#@P & ,P'F ,P &!\P#& , P
  422. XM& ,!P'Q\8# & 8  #  ' ,        # <<!C ,8#C , P# <8!@&  ,#!P P
  423. XM#&,8!C ,<!C <8 !@, P# <!X#9L.'# <&  !@ P 8 @. , __@?@8;'P<P 
  424. XMP  ' !@88# / >. & __P_P.'!AP.   X8#!QP P  ,,# 0@#  !@,  $   
  425. XM   ?_@9@   &   &# '^ S&>/P   , 8 PPP& 'P   'P!@ N' , P # 8 ,
  426. XM# 88# P 8## 8'P ^  '@  >  . <!V ,P## 8P#&  P # 8P!@, 8#&!PP 
  427. XM& ,P'C 8P # XP## 8 P# 8 @'@\8# & X  #  # ,        # \>#!@,,'
  428. XMA@, P!@\8!@&  ,# X P#&,8!C ,>#!@\8 !@, P!A\!X#P\<#AA\,  !@ P
  429. XM 8    , __@/ /QW_XP P  #P!@,P!@& ?^ & __P/   !_@'_W_P8# _@ P
  430. XM'_\'^        8  $ ?_C_\   /    &   &# #,!A\/\P   . X !X & 'P
  431. XM   'P#@ '^#_P__C_X ,#_X?_ P ?_#_X'P ^  !@  8  . /_F ,__#_X__
  432. XM'_\P #_XP!@_ ?_& X__F ,P#C_XP #_\P!C_X P#_X @' <P!@& __@#\ #
  433. XMC\        !_L;_!_X/]A_X P!_L8!@&  ,# < P#&,8!A@8;_!_L8  _X ?
  434. XM!_L P#@<8!A_L?_@ P P P    , __@& '@6?P@ 0   ^!@,P!P  'X &   
  435. XM      ? !_W_ 8# .  P'_^!X             ?_C_\   &    &   &# #,
  436. XM!@X#X    '!P  P & #P   #@#  #\#_P__@_@ , _@'\ P '\ _@#@ >   
  437. XM      . #^& ,_X _@_\'_\P  _@P!@_ '\& 8__F ,P#@_@P  _NP!@_@ P
  438. XM _@ @& ,P!@& __@#\ !C\         _,8\ ?P#Q@?P P >,8!@&  ,# , P
  439. XM#&,8!A_X8\ >,8  ?P / >, P# ,0 @>,?_@ < P#@    , __@    &    
  440. XM                                                            
  441. XM                                      !P                    
  442. XM                .                                           
  443. XM            &                                               
  444. XM       ,      ,           _@8   ,                   ,      P
  445. XM     &8 __@    &                                            
  446. XM                                                          !@
  447. XM                                    ,                       
  448. XM                                                            
  449. XM                           ,      ,             8   ,       
  450. XM            ,      P     &8 __@    &                        
  451. XM                                                            
  452. XM                  #                                     8   
  453. XM                                                            
  454. XM                         '__@                !@8      ,     
  455. XM        8   ,                 !@8      P     &8 __@    &    
  456. XM                                                            
  457. XM                                      "                     
  458. XM                0                                           
  459. XM                                             '__@           
  460. XM     !_X     #X             8   ,                 !_X      P
  461. XM     #X __@    &                                            
  462. XM                                                            
  463. XM                                                            
  464. XM                                                            
  465. XM                          _@     #P             8   ,       
  466. X5           _@      P     !P 
  467. X 
  468. Xend
  469. END_OF_FILE
  470. # end of 'font-16/Ucmr15x25r'
  471. fi
  472. if test -f 'misc/hp_raster.c' -a "${1}" != "-c" ; then 
  473.   echo shar: Will not clobber existing file \"'misc/hp_raster.c'\"
  474. else
  475. echo shar: Extracting \"'misc/hp_raster.c'\" \(8273 characters\)
  476. sed "s/^X//" >'misc/hp_raster.c' <<'END_OF_FILE'
  477. X/*                        Copyright (c) 1988 Bellcore
  478. X *                            All Rights Reserved
  479. X *       Permission is granted to copy or use this program, EXCEPT that it
  480. X *       may not be sold for profit, the copyright notice must be reproduced
  481. X *       on copies, and credit should be given to Bellcore where it is due.
  482. X *       BELLCORE MAKES NO WARRANTY AND ACCEPTS NO LIABILITY FOR THIS PROGRAM.
  483. X */
  484. X/* Raster print filter for hp laser printer */
  485. X
  486. X/***********************************************************************
  487. X * $Header: hp_raster.c,v 1.3 88/07/15 14:34:13 sau Exp $
  488. X * $Locker:  $
  489. X * $Source: /tmp/mgrsrc/misc/RCS/hp_raster.c,v $
  490. X * $Log:    hp_raster.c,v $
  491. X * Revision 1.3  88/07/15  14:34:13  sau
  492. X * Add new bitmap format (handles both formats now )
  493. X * 
  494. X * Revision 1.1  88/07/15  14:32:21  sau
  495. X * Initial revision
  496. X * 
  497. X * Revision 1.2  88/07/08  08:25:43  sau
  498. X * 
  499. X * 
  500. X * Revision 1.1  88/07/08  08:16:57  sau
  501. X * Initial revision
  502. X * 
  503. X * Revision 1.1  88/07/08  08:14:22  sau
  504. X * Initial revision
  505. X * 
  506. X * Revision 1.5  87/07/14  20:10:40  sau
  507. X * Eliminate training white space on a line by line basis
  508. X * 
  509. X * Revision 1.4  87/06/25  11:03:29  sau
  510. X * Auto scaling, lpr version
  511. X * 
  512. X ***********************************************************************/
  513. X
  514. X/* avoid complaints from "lint" */
  515. X
  516. X#ifndef lint
  517. Xstatic char     RCS_Id[] = "$Header: hp_raster.c,v 1.3 88/07/15 14:34:13 sau Exp $";
  518. X#endif
  519. X#include <stdio.h>
  520. X#include "dump.h"
  521. X
  522. X#define GET_OPT(i)    \
  523. X    strlen(argv[i])>2 ? argv[i]+2 : argv[++i]
  524. X#define WIDTH16(w)    ((((w)+15)&~0xf)>>3)        /* old bitmap format */
  525. X#define WIDTH8(w)    ((w)>>3)                            /* new bitmap format */
  526. X#define Min(x,y)    ((x)<(y)?(x):(y))
  527. X
  528. X#define DOTS_WIDE    (8*300)        /* dots across page */
  529. X#define DOTS_HIGH    (10*300+150)    /* dots down page */
  530. X#define WIDE        1152        /* default # pixels/row */
  531. X#define HIGH        900        /* default # rows/screen */
  532. X#define HI_RES        300        /* dots per inch */
  533. X#define MED_RES        150        /* dots per inch */
  534. X#define LOW_RES        100        /* dots per inch */
  535. X#define MIN_RES        75        /* dots per inch */
  536. X#define MAX        4000        /* maximum row size */
  537. X#define BORDER        3        /* default size of border */
  538. X#define STRIP        3        /* white strip for viewgrqaphs */
  539. X
  540. X/* printer macros */
  541. X
  542. X#define set_pos(xp,yp) \
  543. X    printf("\033*p%dy%dX",yp,xp)    /* set cursor position (dots) */
  544. X#define set_res(res) \
  545. X    printf("\033*t%dR",res)        /* set dots/inch */
  546. X#define reset() \
  547. X    printf("\033E")            /* reset the printer */
  548. X#define manual_feed() \
  549. X    printf("\033&l2H")        /* select manual feed */
  550. X#define start_graphics() \
  551. X    printf("\033*r1A")        /* set raster mode */
  552. X#define set_row(wide) \
  553. X    (printf("\033*b%dW",wide), fflush(stdout))
  554. X#define end_graphics() \
  555. X    printf("\033*rB")        /* end graphics mode */
  556. X#define set_copies(n) \
  557. X    printf("\033&l%dX",Min(n,99))    /* set copy count */
  558. X#define set_rule(w,h) \
  559. X    printf("\033*c%da%dB",w,h)    /* set rule size */
  560. X#define print_rule(type) \
  561. X    printf("\033*c%dP",type)    /* print 'type' rule */
  562. X
  563. Xunion {
  564. X    struct b_header new;
  565. X    struct old_b_header old;
  566. X    char type[2];
  567. X    } h_buff, *head = &h_buff;
  568. X
  569. Xmain(argc,argv)
  570. Xint argc;
  571. Xchar **argv;
  572. X   {
  573. X   register int k,i,j=0;
  574. X   int n;                /* last non-white space */
  575. X   unsigned char buff[MAX/8];        /* graphics line buffer */
  576. X   int wide = WIDE, high = HIGH;    /* raster size */
  577. X   int no_head=0;            /* no raster header found */
  578. X   int reverse=0;            /* reverse bits */
  579. X   int pause = 0;            /* for vgrafs */
  580. X   int manual = 0;            /* select manual feed */
  581. X   int copies = 0;            /* set copy count */
  582. X   int border = 0;            /* draw border around picture */
  583. X   int res = MED_RES;            /* resolution dots/in */
  584. X   int force_res=0;            /* force resolution */
  585. X   int x0,y0;                /* starting raster coord */
  586. X   int x=0,y=0;                    /* user supplied coords */
  587. X   int bytes;                /* raster line size */
  588. X    int depth=1;            /* bitmap depth */
  589. X    char type[2];            /* bitmap type */
  590. X
  591. X   /* check arguments */
  592. X
  593. X   for(i=1;i<argc;i++) {
  594. X      if (*argv[i] == '-')
  595. X         switch (argv[i][1]) {
  596. X            case 'X':                /* x coord */
  597. X               x = atoi(GET_OPT(i));
  598. X               break;
  599. X            case 'Y':                /* y coord */
  600. X               y = atoi(GET_OPT(i));
  601. X               break;
  602. X            case 'r':                /* reverse bits */
  603. X               force_res = atoi(GET_OPT(i));
  604. X               break;
  605. X            case 'm':                /* set manual feed */
  606. X               manual++;
  607. X               break;
  608. X            case 'n':                /* login (from lpd )*/
  609. X               GET_OPT(i);
  610. X               break;
  611. X            case 'h':                /*  host (from lpd) */
  612. X               GET_OPT(i);
  613. X               break;
  614. X            case 'y':                /* specify border- for lpd */
  615. X               border = Min(32,atoi(GET_OPT(i)));
  616. X               break;
  617. X            case 'b':                /* set border size */
  618. X               if (argv[i][2])
  619. X                  border = atoi(&argv[i][2]);
  620. X               else
  621. X                  border = BORDER;
  622. X               break;
  623. X            case 'c':                /* set copies */
  624. X               copies = atoi(GET_OPT(i));
  625. X               break;
  626. X            case 'p':                /* set pause */
  627. X            case 'x':                /* for lpd */
  628. X               pause = atoi(GET_OPT(i));
  629. X               break;
  630. X            default:
  631. X               fprintf(stderr,"%s: bad flag %c ignored\n",argv[0],argv[i][1]);
  632. X            }
  633. X      }
  634. X
  635. X   /* get header */
  636. X
  637. X   if (!no_head) {
  638. X      read(0,head->type,2);                /* get magic number */
  639. X      if (B_ISHDR16(&head->old)) {        /* old style header */
  640. X         read(0,head->type+2,B_OHSIZE-2);
  641. X         B_GETOLDHDR(&head->old,wide,high);
  642. X           bytes = WIDTH16(wide);
  643. X            }
  644. X        else if (B_ISHDR8(&head->new)) {        /* new style header */
  645. X         read(0,head->type+2,B_HSIZE-2);
  646. X         B_GETHDR8(&head->new,wide,high,depth);
  647. X           bytes = WIDTH8(wide);
  648. X            }
  649. X      else {        /* assume 16 bit alignment , no header */
  650. X         wide=WIDE,high=HIGH-1;
  651. X         Read(0,buff,WIDTH16(wide)-2);        /* oops ! lose 1st line */
  652. X           bytes = WIDTH16(wide);
  653. X         }
  654. X      }
  655. X
  656. X    if (depth != 1) {
  657. X        fprintf(stderr,"Sorry, Can\'t handle 8-bit pixels\n");
  658. X        exit(0);
  659. X        }
  660. X
  661. X   /* compute appropriate resolution */
  662. X
  663. X   switch(Min(DOTS_WIDE/(border+wide),DOTS_HIGH/(border+high))) {
  664. X      case 0:        /* picture too big, use hi-res and go */
  665. X         /* no break - for now */
  666. X      case 1:
  667. X         res = HI_RES;
  668. X         break;
  669. X      case 2:
  670. X         res = MED_RES;
  671. X         break;
  672. X      case 3:
  673. X         res = LOW_RES;
  674. X         break;
  675. X      default:
  676. X         res = MIN_RES;
  677. X         break;
  678. X      }
  679. X
  680. X   if (force_res)
  681. X      res = force_res;
  682. X
  683. X   /* center picture */
  684. X
  685. X   if (pause>1)             /* skip white strip for viewgraphs */
  686. X      x0 = (DOTS_WIDE-HI_RES*wide/res);
  687. X   else
  688. X      x0 = (DOTS_WIDE-HI_RES*wide/res)/2;
  689. X   y0 = (DOTS_HIGH-HI_RES*high/res)/2;
  690. X
  691. X   if (x>0)
  692. X      x0 = x;
  693. X   if (y>0)
  694. X      y0 = y;
  695. X
  696. X   fprintf(stderr,"printing raster %dx%d at %d,%d - %d dots/in%s\n",
  697. X            wide,high,x0,y0,res,border ? " (bordered)":"");
  698. X
  699. X   /* setup printer */
  700. X
  701. X   reset();                    /* reset the printer */
  702. X   if (pause || manual) 
  703. X        manual_feed();                /* select manual feed */
  704. X   if (copies)
  705. X        set_copies(copies);            /* set copy count */
  706. X   set_pos(x0,y0);                /* set starting position */
  707. X   set_res(res);                /* set resolution */
  708. X   start_graphics();                /* start graphics */
  709. X
  710. X   for (i=0;i<high;i++) {
  711. X      Read(0,buff,bytes);
  712. X      for(j=bytes;j>0 && buff[j-1]==0;j--); 
  713. X      set_row(j);
  714. X      write(1,buff,j);
  715. X      }
  716. X   end_graphics();
  717. X
  718. X   /* draw borders */
  719. X
  720. X   if (border) {
  721. X      set_rule(border,2*border+high*HI_RES/res);
  722. X      set_pos(x0-border,y0-border);
  723. X      print_rule(0);                /* left edge */
  724. X      set_pos(x0+wide*HI_RES/res,y0-border);
  725. X      print_rule(0);                /* right edge */
  726. X
  727. X      set_rule(wide*HI_RES/res,border);
  728. X      set_pos(x0,y0-border);
  729. X      print_rule(0);                /* top edge */
  730. X      set_pos(x0,y0+high*HI_RES/res);
  731. X      print_rule(0);                /* bottom edge */
  732. X      }
  733. X
  734. X   printf("\n\f");
  735. X   exit(0);
  736. X   }
  737. X
  738. X/* do multiple passes for read */
  739. X
  740. XRead(fd,buff,count)
  741. Xint fd,count;
  742. Xregister char *buff;
  743. X   {
  744. X   register int sum=0,current=0;
  745. X
  746. X   while((current = read(0,buff+sum,count-sum))>0)
  747. X      sum += current;
  748. X   return(sum);
  749. X   }
  750. X
  751. X/* return index of 1st non zero byte, or bytes if entirely blank */
  752. X
  753. Xint
  754. Xfirst(buff,bytes)
  755. Xregister char *buff;
  756. Xregister int bytes;
  757. X   {
  758. X   char *start = buff+1;
  759. X   while(bytes-- > 0)
  760. X      if (*buff++) 
  761. X         break;
  762. X   return(buff-start);
  763. X   }
  764. END_OF_FILE
  765. # end of 'misc/hp_raster.c'
  766. fi
  767. if test -f 'src/defs.h' -a "${1}" != "-c" ; then 
  768.   echo shar: Will not clobber existing file \"'src/defs.h'\"
  769. else
  770. echo shar: Extracting \"'src/defs.h'\" \(8116 characters\)
  771. sed "s/^X//" >'src/defs.h' <<'END_OF_FILE'
  772. X/*                        Copyright (c) 1987 Bellcore
  773. X *                            All Rights Reserved
  774. X *       Permission is granted to copy or use this program, EXCEPT that it
  775. X *       may not be sold for profit, the copyright notice must be reproduced
  776. X *       on copies, and credit should be given to Bellcore where it is due.
  777. X *       BELLCORE MAKES NO WARRANTY AND ACCEPTS NO LIABILITY FOR THIS PROGRAM.
  778. X */
  779. X/*    $Header: defs.h,v 4.2 88/08/12 07:40:25 sau Exp $
  780. X    $Source: /tmp/mgrsrc/src/RCS/defs.h,v $
  781. X*/
  782. Xstatic char    h_defs_[] = "$Source: /tmp/mgrsrc/src/RCS/defs.h,v $$Revision: 4.2 $";
  783. X
  784. X/* defines for mgr */
  785. X
  786. X/* configurable parameters */
  787. X#include "defines.h"
  788. X
  789. X#ifdef SYSV
  790. X#define index        strchr
  791. X#define rindex        strrchr
  792. X#endif
  793. X
  794. X#ifdef DEBUG
  795. Xextern char debug_level[];
  796. Xchar *index();
  797. X#define dprintf(x) \
  798. X    if (debug && index(debug_level,'x')) fprintf
  799. X#endif
  800. X
  801. X/* macros -- for speed */
  802. X
  803. X#ifdef FASTMOUSE
  804. X#define MoUSE(a,b)     bit_blit(screen, a, b, 16,16, \
  805. X                               BIT_SRC^BIT_DST, m_rop,0,0)
  806. X#define MOUSE_ON(a,b)    (!mouse_on && (mouse_on=1, MoUSE(a,b)) )
  807. X#define MOUSE_OFF(a,b)    ( mouse_on && (mouse_on=0, MoUSE(a,b)) )
  808. X#else
  809. X/* turn on the mouse only if it is off */
  810. X#define MOUSE_ON(a,b)     (!mouse_on && ( \
  811. X                  mouse_on=1, \
  812. X                      bit_blit(&mouse_save,0,0,16,16, \
  813. X                    BIT_SRC,screen,a,b), \
  814. X                  bit_blit(screen,a,b,16,16, \
  815. X                    BIT_SRC|BIT_DST,m_rop,0,0), \
  816. X                  bit_blit(screen,a,b,16,16, \
  817. X                      BIT_NOT(BIT_SRC)&BIT_DST,m_rop,0,16) \
  818. X                  ))
  819. X/* turn off the mouse only if it is on */
  820. X#define MOUSE_OFF(a,b)     (mouse_on && ( \
  821. X                      mouse_on=0, \
  822. X                      bit_blit(screen,a,b,16,16, \
  823. X                    BIT_SRC,&mouse_save,0,0) \
  824. X                      ))
  825. X#endif
  826. X
  827. X#define CLEAR(s,op)    bit_blit((s),0,0,BIT_WIDE(s),BIT_HIGH(s), \
  828. X            op,0,0,0);
  829. X
  830. X#define ACTIVE_ON() \
  831. X            border(active,SUM_BDR-1,1), \
  832. X            last_active = active!=last_active ? \
  833. X              ( \
  834. X              do_event(EVENT_DEACTIVATED,last_active,E_MAIN), \
  835. X              do_event(EVENT_ACTIVATED,active,E_MAIN), \
  836. X              active ) \
  837. X            : \
  838. X              last_active
  839. X                   
  840. X#define ACTIVE_OFF() \
  841. X            border(active,BLK_BDR,WH_BDR)
  842. X
  843. X#define SETMOUSEICON(x)    (m_rop = x)
  844. X
  845. X/* short hand */
  846. X
  847. X#define W(x)        (win->x)
  848. X#define BETWEEN(a,x,b)    (x)<(a)?a:((x)>(b)?b:x)
  849. X#define ACTIVE(x)    (active->x)
  850. X#define ABS(x)        ((x)>0 ? (x) : -(x))
  851. X
  852. X/* mouse buttons */
  853. X
  854. X#define BUTTON_SYS    4        /* system menu */
  855. X#define BUTTON_2    2        /* middle button (unused) */
  856. X#define BUTTON_1    1        /* right button (vi?) */
  857. X
  858. X/* Window table flags */
  859. X
  860. X#define W_ACTIVE    0x000001L    /* Window is non_occluded */
  861. X#define W_ESCAPE    0x000002L    /* An escape sequence is in progress */
  862. X#define W_STOPPED    0x000004L    /* Window is stopped ( unused ) */
  863. X#define W_REVERSE    0x000008L    /* window is white on black */
  864. X#define W_STANDOUT    0x000010L    /* window is in standout mode */
  865. X#define W_DIED        0x000020L    /* window has died */
  866. X#define W_EXPOSE    0x000040L    /* expose window upon shell output */
  867. X#define W_BACKGROUND    0x000080L    /* permit obscured window to update */
  868. X#define W_NOKILL    0x000100L    /* don't kill window upon exit */
  869. X#define W_VI        0x000200L    /* temporary vi hack -- */
  870. X#define W_TEXT        0x000400L    /* downloading text */
  871. X#define W_NOINPUT    0x000800L    /* don't accept keyboard input */
  872. X#define W_NOWRAP    0x001000L    /* don't auto wrap */
  873. X#define W_OVER        0x002000L    /* overstrike mode */
  874. X#define W_ABSCOORDS    0x004000L    /* use absolute coordinates */
  875. X#define W_MINUS        0x008000L    /* negative coord value */
  876. X#define W_SNARFABLE    0x000004L    /* ok to gather data into cut buffer */
  877. X#define W_SNARFLINES    0x010000L    /* snarf only lines */
  878. X#define W_SNARFTABS    0x020000L    /* change spaces to tabs in snarf */
  879. X#define W_SNARFHARD    0x040000L    /* snarf even if errors */
  880. X#define W_SNARFLAGS    (W_SNARFTABS | W_SNARFHARD | W_SNARFLINES)
  881. X#define W_INHERIT    0x080000L    /* inherit menus and bitmaps */
  882. X#define W_DUPKEY    0x100000L    /* duplicate key mode */
  883. X#define W_NOBUCKEY    0x200000L    /* Buckey keys (i.e. "Left-<char>" and
  884. X                    "Right-<char>") have no effect */
  885. X#define W_CLIPDONE    0x400000L    /* clip list for background update valid
  886. X                    */
  887. X
  888. X#define W_LOOK \
  889. X    (W_EXPOSE | W_BACKGROUND)    /* Window ready to accept data */
  890. X
  891. X#define W_STATE \
  892. X    (W_ESCAPE | W_TEXT)        /* terminal emulator states */
  893. X
  894. X#ifdef CUT
  895. X#define W_SAVE \
  896. X    (W_REVERSE | W_STANDOUT | W_EXPOSE | W_BACKGROUND | \
  897. X     W_VI | W_NOINPUT | W_NOWRAP | \
  898. X     W_SNARFLAGS | \
  899. X     W_OVER | W_ABSCOORDS)        /* savable flags */
  900. X#else
  901. X#define W_SAVE \
  902. X    (W_REVERSE | W_STANDOUT | W_EXPOSE | W_BACKGROUND | \
  903. X     W_VI | W_NOINPUT | W_NOWRAP | \
  904. X     W_OVER | W_ABSCOORDS)        /* savable flags */
  905. X#endif
  906. X
  907. X#define INIT_FLAGS    W_BACKGROUND    /* default window creation flags */
  908. X
  909. X/* Structure definitions */
  910. X
  911. Xtypedef struct {    /* used for text regions */
  912. X  int x,y,wide,high;
  913. X  } rectangle;
  914. X
  915. Xtypedef struct  {    /* some day */
  916. X  int x,y;
  917. X  } point;
  918. X
  919. Xtypedef struct window {        /* primary window structure */
  920. X  struct window *next;    /* next window */
  921. X  struct window *prev;    /* previous window */
  922. X  struct window *stack;    /* stack of saved window environments */
  923. X  struct window *main;    /* main window (or 0 if main window ) */
  924. X  struct window *alt;    /* alternate window ( 0 if none) */
  925. X  BITMAP *border;    /* window + border */
  926. X  BITMAP *window;    /* This is the window */
  927. X  BITMAP *save;        /* pointer to window bit-image if inactive */
  928. X  BITMAP *bitmap;    /* for use when downloading bitmaps */
  929. X  BITMAP *bitmaps[MAXBITMAPS];    /* scratchpad space */
  930. X  BITMAP *cursor;    /* bitmap of cursor (future; unused just now) */
  931. X  struct font *font;    /* this is the font */
  932. X  char *clip_list;    /* pointer to clip list for BG updates */
  933. X
  934. X  rectangle text;    /* location of text region within window */
  935. X  int x0,y0;        /* origin of window on screen */
  936. X  int x,y;        /* cursor character position */
  937. X  int gx,gy;        /* graphics cursor */
  938. X  int op;        /* raster op function (see bitmap.h)  */
  939. X  int style;        /* character style normal/inverse video */
  940. X  int background;    /* background color WOB or BOW */
  941. X  int curs_type;    /* cursor type */
  942. X
  943. X  int esc_cnt;        /* # of escape digits entered */
  944. X  int esc[MAXESC];    /* escape array (as in ESCnn,nnm) */
  945. X  int code;        /* code for text function */
  946. X  char dup;        /* char to duplicate from keyboard */
  947. X
  948. X  struct menu_state *menus[MAXMENU];    /* menus */
  949. X  short menu[2];    /* index into menus for current button 1&2 menu */
  950. X  long event_mask;    /* event mask  (see event.h) */
  951. X  char *events[MAXEVENTS];    /* place for event strings */
  952. X  char *snarf;            /* temporary snarf buffer */
  953. X
  954. X  unsigned long flags;        /* misc. window flags (see defines above) */
  955. X
  956. X  char buff[MAXSHELL];    /* shell input buffer */
  957. X  int  max;        /* the # of chars in buff */
  958. X  int  current;        /* the current char in buff */
  959. X  int  to_fd;        /* file descriptor to shell */
  960. X  int  from_fd;        /* file descriptor from shell */
  961. X  int  pid;        /* process number of the shell */
  962. X  int  setid;        /* window set id, 1..N, one per pid */
  963. X  int  num;        /* window number ( for multiple window/proc) */
  964. X            /* The window set id and the window number together
  965. X            uniquely identify a window. */
  966. X
  967. X  char tty[MAXTTY];    /* name of shell's tty */
  968. X  } WINDOW;
  969. X
  970. Xtypedef int (*function)();
  971. Xint new_window(), move_window(), destroy_window(), quit();
  972. Xint redraw();
  973. Xint sig_child(), catch();
  974. X
  975. X/* static data items (described in data.c) */
  976. X
  977. Xextern short c_arrow1[];
  978. Xextern short c_box[];
  979. Xextern short pat_data[];
  980. Xextern char *full_menu[];
  981. Xextern char *main_menu[];
  982. Xextern char *active_menu[];
  983. Xextern char *test_menu[];
  984. Xchar *quit_menu[];
  985. Xextern function full_functions[];
  986. Xextern function main_functions[];
  987. Xextern function active_functions[];
  988. X
  989. Xextern BITMAP *m_rop;
  990. Xextern int next_window;
  991. Xextern BITMAP pattern, mouse_box, mouse_arrow, mouse_cup, mouse_cross,mouse_cut;
  992. Xextern BITMAP mouse_save, mouse_not;
  993. Xextern struct font *font;
  994. Xextern BITMAP *screen;
  995. Xextern int mask;
  996. Xextern int poll;
  997. Xextern int rev_ops[];
  998. Xextern WINDOW *active;
  999. Xextern WINDOW *last_active;
  1000. Xextern int button_state;
  1001. Xextern mouse, mousex, mousey, mouse_on;
  1002. Xextern int debug;
  1003. Xextern char *fontlist[], *font_dir;
  1004. Xextern char *icon_dir;
  1005. Xextern char *snarf;
  1006. Xextern char *message;
  1007. Xextern char *start_command;
  1008. Xextern char *init_command;
  1009. Xextern int id_message;
  1010. Xextern short buckey_map;
  1011. Xextern unsigned int init_flags;
  1012. Xextern char *version[];
  1013. END_OF_FILE
  1014. # end of 'src/defs.h'
  1015. fi
  1016. if test -f 'src/new_window.c' -a "${1}" != "-c" ; then 
  1017.   echo shar: Will not clobber existing file \"'src/new_window.c'\"
  1018. else
  1019. echo shar: Extracting \"'src/new_window.c'\" \(7968 characters\)
  1020. sed "s/^X//" >'src/new_window.c' <<'END_OF_FILE'
  1021. X/*                        Copyright (c) 1987 Bellcore
  1022. X *                            All Rights Reserved
  1023. X *       Permission is granted to copy or use this program, EXCEPT that it
  1024. X *       may not be sold for profit, the copyright notice must be reproduced
  1025. X *       on copies, and credit should be given to Bellcore where it is due.
  1026. X *       BELLCORE MAKES NO WARRANTY AND ACCEPTS NO LIABILITY FOR THIS PROGRAM.
  1027. X */
  1028. X/*    $Header: new_window.c,v 4.2 88/08/12 07:41:02 sau Exp $
  1029. X    $Source: /tmp/mgrsrc/src/RCS/new_window.c,v $
  1030. X*/
  1031. Xstatic char    RCSid_[] = "$Source: /tmp/mgrsrc/src/RCS/new_window.c,v $$Revision: 4.2 $";
  1032. X
  1033. X/* Create a new window */
  1034. X
  1035. X#include "bitmap.h"
  1036. X#include <fcntl.h>
  1037. X#include <stdio.h>
  1038. X#include "defs.h"
  1039. X#include "window.h"
  1040. X#include "font.h"
  1041. X#include "menu.h"
  1042. X
  1043. X/* sweep out a new window */
  1044. X
  1045. Xint new_window()
  1046. X   {
  1047. X   register WINDOW *win;
  1048. X   int dx=16,dy=16;
  1049. X   char *malloc();
  1050. X   WINDOW * insert_win();
  1051. X
  1052. X   if (next_window >= MAXWIN)
  1053. X       return(-1);
  1054. X   SETMOUSEICON(&mouse_box);
  1055. X   move_mouse(screen,mouse,&mousex,&mousey,0);
  1056. X   SETMOUSEICON(&mouse_arrow);
  1057. X   get_rect(screen,mouse,mousex,mousey,&dx,&dy,0);
  1058. X   do_button(0);
  1059. X
  1060. X   return( create_window( mousex, mousey, dx, dy, -1, 0 ) );
  1061. X   }
  1062. X
  1063. X/* insert a new window into the window list */
  1064. X
  1065. XWINDOW *
  1066. Xinsert_win(win)
  1067. XWINDOW *win;
  1068. X   {
  1069. X   char *malloc();
  1070. X
  1071. X   if (win == (WINDOW *) 0 &&
  1072. X           (win = (WINDOW *) malloc(sizeof(WINDOW))) == (WINDOW *) 0) {
  1073. X      if( debug )
  1074. X     fprintf(stderr,"Can't malloc window space\n");
  1075. X      return(win);
  1076. X      }
  1077. X
  1078. X   if (active) {
  1079. X      W(prev) = ACTIVE(prev);
  1080. X      ACTIVE(prev) = win;
  1081. X      W(next) = active;
  1082. X      }
  1083. X   else {
  1084. X      W(prev) = win;
  1085. X      W(next) = (WINDOW *) 0;
  1086. X      }
  1087. X   return(win);
  1088. X   }
  1089. X
  1090. X/* create a new window given coords */
  1091. X
  1092. Xint
  1093. Xcreate_window(x,y,dx,dy,font_num,argv)
  1094. Xint x,y,dx,dy;
  1095. Xint font_num;
  1096. Xchar **argv;
  1097. X   {
  1098. X   register WINDOW * win;
  1099. X   WINDOW * insert_win();
  1100. X
  1101. X   if (next_window >= MAXWIN)
  1102. X       return(-1);
  1103. X   if (check_window(x,y,dx,dy,font_num) == 0)
  1104. X      return(-1);
  1105. X
  1106. X   /* alloc window space */
  1107. X
  1108. X   if ((win = (WINDOW *) malloc(sizeof(WINDOW))) == (WINDOW *) 0) {
  1109. X      fprintf(stderr,"Can't malloc window space\n");
  1110. X      return(-1);
  1111. X      }
  1112. X      
  1113. X   if ((W(pid) = get_command(argv,&W(from_fd))) < 0) {
  1114. X      free(win);
  1115. X      fprintf(stderr,"Can't get a pty\n");
  1116. X      return(-1);
  1117. X      }
  1118. X   W(to_fd) = W(from_fd);
  1119. X   W(setid) = next_windowset_id();
  1120. X
  1121. X   active = insert_win(win);
  1122. X
  1123. X   make_window(screen,x,y,dx,dy,font_num,"");
  1124. X   return(0);
  1125. X   }
  1126. X
  1127. X/* create a new window given coords , with only 1/2 a ptty */
  1128. X
  1129. Xchar *
  1130. Xhalf_window(x,y,dx,dy,font_num)
  1131. Xint x,y,dx,dy;
  1132. Xint font_num;
  1133. X   {
  1134. X   register WINDOW * win;
  1135. X   WINDOW * insert_win();
  1136. X   char *half_open();
  1137. X   char *tty;
  1138. X
  1139. X   if (next_window >= MAXWIN)
  1140. X       return(NULL);
  1141. X   if (check_window(x,y,dx,dy,font_num) == 0)
  1142. X      return(NULL);
  1143. X
  1144. X   /* alloc window space */
  1145. X
  1146. X   if ((win = (WINDOW *) malloc(sizeof(WINDOW))) == (WINDOW *) 0) {
  1147. X      fprintf(stderr,"Can't malloc window space\n");
  1148. X      return(NULL);
  1149. X      }
  1150. X      
  1151. X   if ((tty = half_open(&W(from_fd))) == NULL) {
  1152. X      free(win);
  1153. X      fprintf(stderr,"Can't get a pty\n");
  1154. X      return(NULL);
  1155. X      }
  1156. X
  1157. X   W(setid) = next_windowset_id();
  1158. X   active = insert_win(win);
  1159. X
  1160. X   W(to_fd) = W(from_fd);
  1161. X   make_window(screen,x,y,dx,dy,font_num,"");
  1162. X   W(pid) = 1;
  1163. X   W(flags) |= W_NOKILL;
  1164. X
  1165. X   return(tty);
  1166. X   }
  1167. X
  1168. X/* check window size */
  1169. X
  1170. Xint
  1171. Xcheck_window(x,y,dx,dy,fnt)
  1172. Xint x, y, dx, dy;
  1173. Xint fnt;
  1174. X   {
  1175. X   struct font *curr_font, *Get_font();
  1176. X
  1177. X   if (dx<0)
  1178. X      x += dx, dx = -dx;
  1179. X   if (dy<0)
  1180. X      y += dy, dy = -dy;
  1181. X   
  1182. X   if (x >= BIT_WIDE(screen) || y >= BIT_HIGH(screen))
  1183. X       return(0);
  1184. X
  1185. X   if (x + dx >= BIT_WIDE(screen))
  1186. X      dx = BIT_WIDE(screen)-x;
  1187. X
  1188. X   if (y + dy >= BIT_HIGH(screen))
  1189. X      dy = BIT_HIGH(screen)-y;
  1190. X
  1191. X   curr_font = Get_font(fnt);
  1192. X
  1193. X#ifdef DEBUG
  1194. X   dprintf(n)(stderr,"starting: (%d,%d)  %d x %d\r\n",x,y,dx,dy);
  1195. X#endif
  1196. X
  1197. X   if (dx < SUM_BDR + curr_font->head.wide*MIN_X +1 ||
  1198. X              dy < SUM_BDR + curr_font->head.high*MIN_Y +1)
  1199. X      return(0);
  1200. X   else
  1201. X      return(1);
  1202. X   }
  1203. X
  1204. X/* draw the window on the screen */
  1205. X
  1206. Xmake_window(screen,x,y,dx,dy,fnt,start)
  1207. XBITMAP *screen;
  1208. Xint x, y, dx, dy;
  1209. Xint fnt;
  1210. Xchar *start;
  1211. X   {
  1212. X   register WINDOW *win = active;
  1213. X   register int i;
  1214. X   struct font *curr_font, *Get_font();
  1215. X   char *last_tty();
  1216. X
  1217. X   if (dx<0)
  1218. X      x += dx, dx = -dx;
  1219. X   if (dy<0)
  1220. X      y += dy, dy = -dy;
  1221. X   
  1222. X   if (x < 0) x = 0;
  1223. X
  1224. X   if (x + dx >= BIT_WIDE(screen))
  1225. X      dx = BIT_WIDE(screen)-x;
  1226. X
  1227. X   if (y + dy >= BIT_HIGH(screen))
  1228. X      dy = BIT_HIGH(screen)-y;
  1229. X
  1230. X   curr_font = Get_font(fnt);
  1231. X   if (curr_font == font) {
  1232. X#ifdef DEBUG
  1233. X      dprintf(n)(stderr,"Can't find font %d, using default\r\n", fnt);
  1234. X#endif
  1235. X      }
  1236. X
  1237. X#ifdef DEBUG
  1238. X   dprintf(n)(stderr,"starting window: (%d,%d)  %d x %d font (%d,%d)\r\n",
  1239. X             x,y,dx,dy,curr_font->head.wide, curr_font->head.high);
  1240. X   dprintf(n)(stderr,"min size: %d x %d\r\n",
  1241. X           SUM_BDR + curr_font->head.wide*MIN_X +1,
  1242. X           SUM_BDR + curr_font->head.high*MIN_Y +1);
  1243. X#endif
  1244. X
  1245. X   if (dx < SUM_BDR + curr_font->head.wide*MIN_X +1 ||
  1246. X       dy < SUM_BDR + curr_font->head.high*MIN_Y +1)
  1247. X       return(-1);
  1248. X
  1249. X#ifdef DEBUG
  1250. X   dprintf(n)(stderr,"adjusted to: (%d,%d)  %d x %d\r\n",x,y,dx,dy);
  1251. X#endif
  1252. X
  1253. X   if (!setup_window(win,curr_font,x,y,dx,dy)) {
  1254. X      fprintf(stderr,"Out of memory for window creation -- bye!\n");
  1255. X      quit();
  1256. X      }
  1257. X
  1258. X   next_window++;
  1259. X
  1260. X   /* make the window */
  1261. X
  1262. X   set_covered(win);
  1263. X   border(win,BLK_BDR,WH_BDR);
  1264. X   CLEAR(W(window),BIT_CLR);
  1265. X
  1266. X   /* set up file descriptor modes */
  1267. X
  1268. X   if (fcntl(W(from_fd),F_SETFL,fcntl(W(from_fd),F_GETFL,0)|FNDELAY) == -1)
  1269. X      fprintf(stderr,"%s: fcntl failed for fd %d\n",W(tty),W(from_fd));
  1270. X
  1271. X   mask |= 1<<W(to_fd);
  1272. X
  1273. X   /* send initial string (if any) */
  1274. X
  1275. X   if (start && *start) {
  1276. X#ifdef DEBUG
  1277. X      dprintf(n)(stderr,"Sending initial string: [%s]\n",start);
  1278. X#endif
  1279. X      Write(W(to_fd),start,strlen(start));
  1280. X      }
  1281. X   return(0);
  1282. X   }
  1283. X
  1284. X/* initialize window state */
  1285. X
  1286. Xint
  1287. Xsetup_window(win,curr_font,x,y,dx,dy)
  1288. Xregister WINDOW *win;
  1289. Xint x,y,dx,dy;
  1290. Xstruct font *curr_font;
  1291. X   {
  1292. X   register int i;
  1293. X
  1294. X#ifdef ALIGN
  1295. X   alignwin(screen,&x,&dx,SUM_BDR);
  1296. X#endif
  1297. X
  1298. X   W(font) = curr_font;
  1299. X   W(x) = 0;
  1300. X   W(y) = curr_font->head.high;
  1301. X   W(esc_cnt) = 0;
  1302. X   W(esc[0]) = 0;
  1303. X   W(flags) = W_ACTIVE | init_flags;
  1304. X#ifdef CUT
  1305. X   W(flags) |= W_SNARFABLE;
  1306. X#endif
  1307. X#ifdef COLOR
  1308. X   W(background) = NOCOLOR&BIT_SRC | GETCOLOR(WHITE);
  1309. X   W(style) = NOCOLOR&BIT_SRC | GETCOLOR(BLACK);
  1310. X#else
  1311. X   W(style) = OPCODE(BIT_SRC);
  1312. X   W(background) = OPCODE(BIT_CLR);
  1313. X#endif
  1314. X    W(curs_type) = CS_BLOCK;
  1315. X   W(x0) = x;
  1316. X   W(y0) = y;
  1317. X   W(border) = bit_create(screen,x,y,dx,dy);
  1318. X   W(window) = bit_create(W(border),SUM_BDR,SUM_BDR,dx-SUM_BDR*2,dy-SUM_BDR*2);
  1319. X
  1320. X   W(text.x) = 0;
  1321. X   W(text.y) = 0;
  1322. X   W(text.wide) = 0;
  1323. X   W(text.high) = 0;
  1324. X
  1325. X   W(bitmap) = (BITMAP *) 0;
  1326. X   for(i=0;i<MAXBITMAPS;i++)
  1327. X      W(bitmaps)[i] = (BITMAP *) 0;
  1328. X
  1329. X   W(save) = (BITMAP *) 0;
  1330. X   W(stack) = (WINDOW *) 0;
  1331. X   W(main) = win;
  1332. X   W(alt) = (WINDOW *) 0;
  1333. X   W(esc_cnt) = 0;
  1334. X   W(esc[0])=0;
  1335. X   W(clip_list) = (char *) 0;
  1336. X
  1337. X   for(i=0;i<MAXMENU;i++)
  1338. X      W(menus[i]) = (struct menu_state *) 0;
  1339. X
  1340. X   W(menu[0]) = W(menu[1]) = -1;
  1341. X   W(event_mask) = 0;
  1342. X
  1343. X   for(i=0;i<MAXEVENTS;i++)
  1344. X      W(events)[i] = (char *) 0;
  1345. X
  1346. X   W(snarf) = (char *) 0;
  1347. X   W(gx) = 0;
  1348. X   W(gy) = 0;
  1349. X   W(op) = OPCODE(BIT_SET);
  1350. X   W(max) = 0;
  1351. X   W(current) = 0;
  1352. X   strcpy(W(tty), last_tty());
  1353. X   W(num) = 0;
  1354. X   clip_bad(win);    /* invalidate clip lists */
  1355. X   return(W(border) && W(window));
  1356. X   }
  1357. X
  1358. X/*
  1359. X    Look through all the windows for the next available window set id.
  1360. X*/
  1361. X
  1362. Xint
  1363. Xnext_windowset_id()
  1364. X   {
  1365. X      char        list[ MAXWIN + 2 ];
  1366. X      register char    *cp;
  1367. X      register WINDOW    *win;
  1368. X
  1369. X      for( cp = list;  cp < &list[ MAXWIN + 2 ];  cp++ )
  1370. X     *cp = 0;
  1371. X
  1372. X      for( win = active;  win != (WINDOW *)0;  win = W(next) )
  1373. X     list[ W(setid) ] = 1;
  1374. X
  1375. X      /*    There is no window set ID zero.
  1376. X      */
  1377. X      for( cp = list + 1;  *cp;  cp++ )
  1378. X     ;
  1379. X
  1380. X      return cp - list;
  1381. X   }
  1382. END_OF_FILE
  1383. # end of 'src/new_window.c'
  1384. fi
  1385. if test -f 'src/update.c' -a "${1}" != "-c" ; then 
  1386.   echo shar: Will not clobber existing file \"'src/update.c'\"
  1387. else
  1388. echo shar: Extracting \"'src/update.c'\" \(7972 characters\)
  1389. sed "s/^X//" >'src/update.c' <<'END_OF_FILE'
  1390. X/*                        Copyright (c) 1988 Bellcore
  1391. X *                            All Rights Reserved
  1392. X *       Permission is granted to copy or use this program, EXCEPT that it
  1393. X *       may not be sold for profit, the copyright notice must be reproduced
  1394. X *       on copies, and credit should be given to Bellcore where it is due.
  1395. X *       BELLCORE MAKES NO WARRANTY AND ACCEPTS NO LIABILITY FOR THIS PROGRAM.
  1396. X */
  1397. X/*    $Header: update.c,v 4.1 88/06/21 13:34:49 bianchi Exp $
  1398. X    $Source: /tmp/mgrsrc/src/RCS/update.c,v $
  1399. X*/
  1400. Xstatic char    RCSid_[] = "$Source: /tmp/mgrsrc/src/RCS/update.c,v $$Revision: 4.1 $";
  1401. X
  1402. X/* update a background window */
  1403. X
  1404. X/*
  1405. X *       build a clip list
  1406. X *    1) find all window edges that intersect with the current window 
  1407. X *    2) sort all tops+bottoms then left+rights into increasing order
  1408. X *    3) for each rectangular patch, see if it is visible on target window
  1409. X *    4) if visible, coellesce patch and keep on a list
  1410. X *    update window against clip list
  1411. X * 5) run through list, and update each rext that intersects with
  1412. X *    the clip region
  1413. X */
  1414. X
  1415. X#include "bitmap.h"
  1416. X#include "defs.h"
  1417. X#include "clip.h"
  1418. X#include <stdio.h>
  1419. X
  1420. X#define MAX_COORDS    ((MAXWIN+1)  * 5)    /* educated guess (stab in the dark?) */
  1421. X
  1422. Xstruct rect_list {                /* list of visible "patches" of obscured window */
  1423. X    rectangle rect;                /* clipping rectangle */
  1424. X    struct rect_list *next;        /* next clipping rectangle */
  1425. X    };
  1426. X
  1427. Xstatic int x[MAX_COORDS];        /* left/right edges of covering windows */
  1428. Xstatic int y[MAX_COORDS];        /* top/bottom edges of covering windows */
  1429. X
  1430. X/* update an obscured window */
  1431. X
  1432. Xupdate(win, clipp)
  1433. Xregister WINDOW *win;
  1434. Xrect    *clipp;
  1435. X    {
  1436. X    /* generate clip list */
  1437. X
  1438. X    if (!(W(flags)&W_CLIPDONE)) {
  1439. X        if (W(clip_list) != NULL) /* free old list (we could reuse it) */
  1440. X            zap_cliplist(win);
  1441. X        gen_list(win);
  1442. X        W(flags) |= W_CLIPDONE;
  1443. X        }
  1444. X
  1445. X    /* update the window */
  1446. X
  1447. X   do_update(win,clipp);            /* do the update */
  1448. X    }
  1449. X
  1450. X/* free window's clip list */
  1451. X
  1452. Xint
  1453. Xzap_cliplist(win)
  1454. XWINDOW *win;
  1455. X    {
  1456. X    register struct rect_list *list = (struct rect_list *) W(clip_list);
  1457. X    register struct rect_list *next;
  1458. X
  1459. X#ifdef DEBUG
  1460. X    dprintf(U)(stderr,"Zapping clip list\r\n");
  1461. X#endif
  1462. X    for(;list;list=next) {
  1463. X        next = list->next;
  1464. X        free(list);
  1465. X        }    
  1466. X    W(clip_list) = NULL;
  1467. X    }
  1468. X
  1469. X/* generate a clip list */
  1470. X
  1471. Xint
  1472. Xgen_list(window)
  1473. Xregister WINDOW *window;
  1474. X   {
  1475. X
  1476. X   register WINDOW *win = window;
  1477. X   register struct rect_list *list, *prev = (struct rect_list *)0;
  1478. X   register int x_cnt = 2, y_cnt = 2;
  1479. X   register int i, j;
  1480. X   int count = 0;
  1481. X   int skip;        /* covered by another window - skip patch */
  1482. X   int hold;        /* hold for coellessing */
  1483. X
  1484. X   int cmp();        /* compare for qsort */
  1485. X
  1486. X   /* build arrays of window coordinates: intersecting win's above win */
  1487. X
  1488. X   x[0] = SUM_BDR + W(x0);
  1489. X   y[0] = SUM_BDR + W(y0);
  1490. X   x[1] = SUM_BDR + W(x0) + BIT_WIDE(W(window));
  1491. X   y[1] = SUM_BDR + W(y0) + BIT_HIGH(W(window));
  1492. X
  1493. X   for(win = active; win != window; win=W(next)) {
  1494. X      if (!(in_win(win,x[0],y[0],x[1],y[1])))
  1495. X         continue;
  1496. X
  1497. X      if (W(x0) >= x[0] && W(x0) <= x[1])
  1498. X         x[x_cnt++] = W(x0);
  1499. X
  1500. X      if (W(y0) >= y[0] && W(y0) <= y[1])
  1501. X         y[y_cnt++] = W(y0);
  1502. X
  1503. X      if (W(x0) + BIT_WIDE(W(border)) >= x[0] &&
  1504. X               W(x0) + BIT_WIDE(W(border)) <= x[1])
  1505. X         x[x_cnt++] = W(x0) + BIT_WIDE(W(border));
  1506. X
  1507. X      if (W(y0) + BIT_HIGH(W(border)) >= y[0] &&
  1508. X               W(y0) + BIT_HIGH(W(border)) <= y[1])
  1509. X         y[y_cnt++] = W(y0) + BIT_HIGH(W(border));
  1510. X      
  1511. X      if (y_cnt >= MAX_COORDS || x_cnt >= MAX_COORDS)
  1512. X         break;
  1513. X      }
  1514. X
  1515. X   /* sort window coordinate lists */
  1516. X
  1517. X   qsort(x,x_cnt,sizeof(int),cmp);
  1518. X   qsort(y,y_cnt,sizeof(int),cmp);
  1519. X
  1520. X   x_cnt--;
  1521. X   y_cnt--;
  1522. X
  1523. X   /* build list of covering rectangles */
  1524. X
  1525. X   for(j=0; j<y_cnt; j++) {
  1526. X
  1527. X      if (y[j] == y[j+1])    /* avoid zero-height patches */
  1528. X         continue;
  1529. X
  1530. X      for(hold=x_cnt,i=0; i<x_cnt; i++) {
  1531. X
  1532. X         if (x[i] == x[i+1])    /* avoid zero-width patches */
  1533. X            continue;
  1534. X
  1535. X            /* see if patch is visible */
  1536. X
  1537. X         for(skip=0,win=active; win!=window; win=W(next))
  1538. X            if (in_win(win, x[i], y[j], x[i+1], y[j+1])) {
  1539. X               skip++;
  1540. X               break;
  1541. X               }
  1542. X
  1543. X            /* visible, add patch to list, or append to previous patch */
  1544. X
  1545. X         if (!skip)  {
  1546. X                if (i == hold) {        /* coel. across */
  1547. X                    list->rect.wide += x[i+1] - x[i];
  1548. X                    hold++;
  1549. X                    }
  1550. X                else {    /* flush held rect */
  1551. X                    count++;        /* only for debugging */
  1552. X                    list = (struct rect_list *) alloc(sizeof(struct rect_list));
  1553. X                    list->rect.x = x[i] - W(x0);
  1554. X                    list->rect.y = y[j] - W(y0);
  1555. X                    list->rect.wide = x[i+1] - x[i];
  1556. X                    list->rect.high = y[j+1] - y[j];
  1557. X                    list -> next = NULL;
  1558. X                    if (prev)
  1559. X                        prev -> next = list;
  1560. X                    if (!W(clip_list))    /* set initial rectangle */
  1561. X                        W(clip_list) = (char *) list;
  1562. X                    prev = list;
  1563. X                    hold = i+1;                /* next 'i' to check for coell. */
  1564. X                    }
  1565. X            }
  1566. X         }
  1567. X      }
  1568. X
  1569. X/* look at rect list    DEBUG code, commented out!
  1570. X
  1571. X    for(list=(struct rect_list *) W(clip_list);list;list = list->next) {
  1572. X        int    x = list->rect.x,
  1573. X            y = list->rect.y,
  1574. X            wide = list->rect.wide,
  1575. X            high = list->rect.high;
  1576. X        in_mouseoff( x, y, wide, high );
  1577. X        bit_blit(W(border), x, y, wide, high, BIT_NOT(BIT_DST),0L,0,0);
  1578. X        dprintf(U)(stderr,"  Rect %d,%d  %dx%d\n", x, y, wide, high );
  1579. X        getchar();
  1580. X        bit_blit(W(border), x, y, wide, high, BIT_NOT(BIT_DST),0L,0,0);
  1581. X        MOUSE_ON(mousex,mousey);
  1582. X        }
  1583. XDEBUG code, commented out! */
  1584. X
  1585. X#ifdef DEBUG
  1586. X    dprintf(U)(stderr,"%s: Built clip list (%d)\r\n",W(tty),count);
  1587. X#endif
  1588. X
  1589. X    return(0);    /* I'll think of something */
  1590. X   }
  1591. X
  1592. X/* update obscured window */
  1593. X
  1594. Xint
  1595. Xdo_update(win,clipp)    
  1596. Xregister WINDOW *win;    /* window to update */
  1597. Xrect *clipp;          /* region of window to update (window coords) */
  1598. X    {
  1599. X   register struct rect_list *list;    /* list of rectangle to clip to */
  1600. X   register rectangle *got;        /* intersecting region */
  1601. X   rectangle *got_int();        /* finds intersecting rectangle */
  1602. X
  1603. X#ifdef DEBUG
  1604. X    dprintf(*)(stderr,"Updating background window to %d,%d => %d,%d\r\n",
  1605. X        clipp->x1,clipp->y1,clipp->x2,clipp->y2);
  1606. X#endif
  1607. X
  1608. X    for(list=(struct rect_list *)W(clip_list);list;list = list->next) {
  1609. X        if (got = got_int(&(list->rect),clipp)) {
  1610. X            register int    x = got->x,
  1611. X                    y = got->y,
  1612. X                    wide = got->wide,
  1613. X                    high = got->high;
  1614. X            in_mouseoff( x + W(x0), y + W(y0), wide, high );
  1615. X            bit_blit(W(border),x,y,wide,high,BIT_SRC,W(save),x,y);
  1616. X            MOUSE_ON(mousex,mousey);
  1617. X            }
  1618. X        }
  1619. X    }
  1620. X
  1621. X/* find the intersection of 2 rectangles */
  1622. X
  1623. Xrectangle *
  1624. Xgot_int(r1,r2)
  1625. Xregister rectangle *r1;        /* rect 1 */
  1626. Xregister rect *r2;            /* other rect   (should both be same struct) */
  1627. X    {
  1628. X    static rectangle result;
  1629. X
  1630. X    result.x = Max(r1->x,r2->x1+SUM_BDR);
  1631. X    result.y = Max(r1->y,r2->y1+SUM_BDR);
  1632. X    result.wide = Min(r1->x + r1->wide, r2->x2+SUM_BDR) - result.x;
  1633. X    result.high = Min(r1->y + r1->high, r2->y2+SUM_BDR) - result.y;
  1634. X
  1635. X    if (result.wide > 0 && result.high > 0 )
  1636. X      return(&result);
  1637. X    else
  1638. X        return((rectangle *) 0);
  1639. X    }
  1640. X
  1641. X/* see if mouse in rectangle, if so turn the mouse off */
  1642. X
  1643. Xin_mouseoff(x0,y0,wide,high)
  1644. Xregister int x0,y0,wide,high;
  1645. X   {
  1646. X   if( !( x0 > mousex+16 || y0 > mousey+16 ||
  1647. X        x0+wide < mousex || y0+high < mousey))
  1648. X    MOUSE_OFF(mousex,mousey);
  1649. X   }
  1650. X         
  1651. X/* see if rectangle in window */
  1652. X
  1653. Xint
  1654. Xin_win(win,x0,y0,x1,y1)
  1655. Xregister WINDOW *win;
  1656. Xregister x0,y0,x1,y1;
  1657. X   {
  1658. X   return(
  1659. X      W(x0) + BIT_WIDE(W(border)) <= x0 ||
  1660. X      x1 <= W(x0) ||
  1661. X      W(y0) + BIT_HIGH(W(border)) <= y0 ||
  1662. X      y1 <= W(y0)
  1663. X   ?  0  :  1);
  1664. X   }
  1665. X
  1666. X/* compare for qsort */
  1667. X
  1668. Xint
  1669. Xcmp(x,y)
  1670. Xint *x, *y;
  1671. X   {
  1672. X   return( *x - *y);
  1673. X   }
  1674. X
  1675. X/* invalidate clip list for all windows affected by 'window' */
  1676. X
  1677. Xclip_bad(window)
  1678. Xregister WINDOW *window;        /* this window has changed */
  1679. X    {
  1680. X    register WINDOW *win;        /* working window */
  1681. X
  1682. X    /* invalidate all intersecting window clip lists below this one */
  1683. X
  1684. X    window->flags &= ~W_CLIPDONE;        /* invalidate clip list */
  1685. X   for(win=window->next;win != (WINDOW *) 0;win=W(next))
  1686. X        if (intersect(win,window)) 
  1687. X            W(flags) &= ~W_CLIPDONE;        /* invalidate clip list */
  1688. X    }
  1689. END_OF_FILE
  1690. # end of 'src/update.c'
  1691. fi
  1692. echo shar: End of archive 28 \(of 61\).
  1693. cp /dev/null ark28isdone
  1694. MISSING=""
  1695. for I in 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 \
  1696.     21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 \
  1697.     38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 \
  1698.     55 56 57 58 59 60 61 ; do
  1699.     if test ! -f ark${I}isdone ; then
  1700.     MISSING="${MISSING} ${I}"
  1701.     fi
  1702. done
  1703. if test "${MISSING}" = "" ; then
  1704.     echo You have unpacked all 61 archives.
  1705.     rm -f ark[1-9]isdone ark[1-9][0-9]isdone
  1706. else
  1707.     echo You still need to unpack the following archives:
  1708.     echo "        " ${MISSING}
  1709. fi
  1710. ##  End of shell archive.
  1711. exit 0
  1712.